| date | confirmed | new | active | recovered | deaths | |
|---|---|---|---|---|---|---|
| 169 | 2020-08-29 | 9524 | 0 | NA | NA | 678 |
| 168 | 2020-08-28 | 9524 | 43 | NA | NA | 678 |
| 167 | 2020-08-27 | 9481 | 42 | NA | NA | 678 |
| 166 | 2020-08-26 | 9439 | 75 | NA | NA | 678 |
| 165 | 2020-08-25 | 9364 | 51 | NA | NA | 676 |
| 164 | 2020-08-24 | 9313 | 18 | NA | NA | 676 |
| 163 | 2020-08-23 | 9295 | 100 | NA | NA | 676 |
| 162 | 2020-08-22 | 9195 | 81 | NA | NA | 676 |
| 161 | 2020-08-21 | 9114 | 41 | NA | NA | 676 |
| 160 | 2020-08-20 | 9073 | 0 | NA | NA | 676 |
| 159 | 2020-08-19 | 9073 | 81 | NA | NA | 676 |
| 158 | 2020-08-18 | 8992 | 9 | NA | NA | 674 |
| 157 | 2020-08-17 | 8983 | 30 | NA | NA | 674 |
| 156 | 2020-08-16 | 8953 | 49 | NA | NA | 674 |
| 155 | 2020-08-15 | 8904 | 0 | NA | NA | 674 |
| 154 | 2020-08-14 | 8904 | 48 | NA | NA | 674 |
| 153 | 2020-08-13 | 8856 | 23 | NA | NA | 674 |
| 152 | 2020-08-12 | 8833 | 66 | NA | NA | 674 |
| 151 | 2020-08-11 | 8767 | 0 | NA | NA | 671 |
| 150 | 2020-08-10 | 8767 | 158 | NA | NA | 671 |
| 149 | 2020-08-09 | 8609 | 0 | NA | NA | 671 |
| 148 | 2020-08-08 | 8609 | 56 | NA | NA | 671 |
| 147 | 2020-08-07 | 8553 | -54 | NA | NA | 671 |
| 146 | 2020-08-06 | 8607 | 66 | NA | NA | 671 |
| 145 | 2020-08-05 | 8541 | 43 | NA | NA | 671 |
| 144 | 2020-08-04 | 8498 | 0 | NA | NA | 669 |
| 143 | 2020-08-03 | 8498 | 78 | NA | NA | 669 |
| 142 | 2020-08-02 | 8420 | 0 | NA | NA | 669 |
| 141 | 2020-08-01 | 8420 | 55 | NA | NA | 669 |
| 140 | 2020-07-31 | 8365 | 61 | NA | NA | 669 |
| 139 | 2020-07-30 | 8304 | 69 | NA | NA | 669 |
| 138 | 2020-07-29 | 8235 | 0 | NA | NA | 669 |
| 137 | 2020-07-28 | 8235 | 58 | NA | NA | 669 |
| 136 | 2020-07-27 | 8177 | 16 | NA | NA | 663 |
| 135 | 2020-07-26 | 8161 | 31 | NA | NA | 663 |
| 134 | 2020-07-25 | 8130 | 48 | NA | NA | 663 |
| 133 | 2020-07-24 | 8082 | 0 | NA | NA | 663 |
| 132 | 2020-07-23 | 8082 | 77 | NA | NA | 663 |
| 131 | 2020-07-22 | 8005 | 0 | NA | NA | 663 |
| 130 | 2020-07-21 | 8005 | 71 | NA | NA | 663 |
| 129 | 2020-07-20 | 7934 | -6 | NA | NA | 657 |
| 128 | 2020-07-19 | 7940 | 19 | NA | NA | 657 |
| 127 | 2020-07-18 | 7921 | 32 | NA | NA | 657 |
| 126 | 2020-07-17 | 7889 | 57 | NA | NA | 657 |
| 125 | 2020-07-16 | 7832 | 33 | NA | NA | 654 |
| 124 | 2020-07-15 | 7799 | 57 | NA | NA | 652 |
| 123 | 2020-07-14 | 7742 | 65 | NA | NA | 652 |
| 122 | 2020-07-13 | 7677 | 0 | NA | NA | 646 |
| 121 | 2020-07-12 | 7677 | 25 | NA | NA | 646 |
| 120 | 2020-07-11 | 7652 | 28 | NA | NA | 646 |
| 119 | 2020-07-10 | 7624 | 48 | NA | NA | 646 |
| 118 | 2020-07-09 | 7576 | 31 | NA | NA | 644 |
| 117 | 2020-07-08 | 7545 | 30 | NA | NA | 642 |
| 116 | 2020-07-07 | 7515 | 49 | NA | NA | 642 |
| 115 | 2020-07-06 | 7466 | 42 | NA | NA | 639 |
| 114 | 2020-07-05 | 7424 | 25 | NA | NA | 639 |
| 113 | 2020-07-04 | 7399 | 44 | NA | NA | 639 |
| 112 | 2020-07-03 | 7355 | 54 | NA | NA | 639 |
| 111 | 2020-07-02 | 7301 | 39 | NA | NA | 639 |
| 110 | 2020-07-01 | 7262 | 70 | NA | NA | 637 |
| 109 | 2020-06-30 | 7192 | 64 | NA | NA | 637 |
| 108 | 2020-06-29 | 7128 | 0 | NA | NA | 636 |
| 107 | 2020-06-28 | 7128 | 29 | NA | NA | 636 |
| 106 | 2020-06-27 | 7099 | 68 | NA | NA | 636 |
| 105 | 2020-06-26 | 7031 | 26 | NA | NA | 634 |
| 104 | 2020-06-25 | 7005 | 38 | NA | NA | 634 |
| 103 | 2020-06-24 | 6967 | 0 | NA | NA | 634 |
| 102 | 2020-06-23 | 6967 | 53 | NA | NA | 634 |
| 101 | 2020-06-22 | 6914 | 0 | NA | NA | 623 |
| 100 | 2020-06-21 | 6914 | 22 | NA | NA | 623 |
| 99 | 2020-06-20 | 6892 | 71 | NA | NA | 623 |
| 98 | 2020-06-19 | 6821 | 36 | NA | NA | 621 |
| 97 | 2020-06-18 | 6785 | 36 | NA | NA | 608 |
| 96 | 2020-06-17 | 6749 | 0 | NA | NA | 608 |
| 95 | 2020-06-16 | 6749 | 50 | NA | NA | 608 |
| 94 | 2020-06-15 | 6699 | 35 | NA | NA | 591 |
| 93 | 2020-06-14 | 6664 | 0 | NA | NA | 591 |
| 92 | 2020-06-13 | 6664 | 83 | NA | NA | 591 |
| 91 | 2020-06-12 | 6581 | 0 | NA | NA | 587 |
| 90 | 2020-06-11 | 6581 | 38 | NA | NA | 587 |
| 89 | 2020-06-10 | 6543 | 53 | NA | NA | 580 |
| 88 | 2020-06-09 | 6490 | 32 | NA | NA | 570 |
| 87 | 2020-06-08 | 6458 | 61 | NA | NA | 560 |
| 86 | 2020-06-07 | 6397 | 61 | NA | NA | 560 |
| 85 | 2020-06-06 | 6336 | 47 | NA | NA | 560 |
| 84 | 2020-06-05 | 6289 | 0 | NA | NA | 556 |
| 83 | 2020-06-04 | 6289 | 102 | NA | NA | 556 |
| 82 | 2020-06-03 | 6187 | 0 | NA | NA | 545 |
| 81 | 2020-06-02 | 6187 | 122 | NA | NA | 545 |
| 80 | 2020-06-01 | 6065 | 0 | NA | NA | 524 |
| 79 | 2020-05-31 | 6065 | 43 | NA | NA | 524 |
| 78 | 2020-05-30 | 6022 | 131 | NA | NA | 524 |
| 77 | 2020-05-29 | 5891 | 0 | NA | NA | 516 |
| 76 | 2020-05-28 | 5891 | 61 | NA | NA | 516 |
| 75 | 2020-05-27 | 5830 | 46 | NA | NA | 512 |
| 74 | 2020-05-26 | 5784 | 145 | NA | NA | 504 |
| 73 | 2020-05-25 | 5639 | 95 | NA | NA | 480 |
| 72 | 2020-05-24 | 5544 | 0 | NA | NA | 480 |
| 71 | 2020-05-23 | 5544 | 231 | NA | NA | 480 |
| 70 | 2020-05-22 | 5313 | 0 | NA | NA | 472 |
| 69 | 2020-05-21 | 5313 | 82 | NA | NA | 472 |
| 68 | 2020-05-20 | 5231 | 177 | NA | NA | 459 |
| 67 | 2020-05-19 | 5054 | 72 | NA | NA | 421 |
| 66 | 2020-05-18 | 4982 | 76 | NA | NA | 421 |
| 65 | 2020-05-17 | 4906 | 0 | NA | NA | 420 |
| 64 | 2020-05-16 | 4906 | 86 | NA | NA | 420 |
| 63 | 2020-05-15 | 4820 | 241 | NA | NA | 420 |
| 62 | 2020-05-14 | 4579 | 0 | NA | NA | 400 |
| 61 | 2020-05-13 | 4579 | 95 | NA | NA | 400 |
| 60 | 2020-05-12 | 4484 | 0 | NA | NA | 387 |
| 59 | 2020-05-11 | 4484 | 151 | NA | NA | 387 |
| 58 | 2020-05-10 | 4333 | 0 | NA | NA | 357 |
| 57 | 2020-05-09 | 4333 | 172 | NA | NA | 357 |
| 56 | 2020-05-08 | 4161 | 222 | NA | NA | 346 |
| 55 | 2020-05-07 | 3939 | 0 | NA | NA | 323 |
| 54 | 2020-05-06 | 3939 | 190 | NA | NA | 323 |
| 53 | 2020-05-05 | 3749 | 0 | NA | NA | 308 |
| 52 | 2020-05-04 | 3749 | 268 | NA | NA | 308 |
| 51 | 2020-05-03 | 3481 | 0 | NA | NA | 283 |
| 50 | 2020-05-02 | 3481 | 0 | NA | NA | 283 |
| 49 | 2020-05-01 | 3481 | 71 | NA | NA | 283 |
| 48 | 2020-04-30 | 3410 | 95 | NA | NA | 266 |
| 47 | 2020-04-29 | 3315 | 91 | NA | NA | 254 |
| 46 | 2020-04-28 | 3224 | 163 | NA | NA | 245 |
| 45 | 2020-04-27 | 3061 | 65 | NA | NA | 207 |
| 44 | 2020-04-26 | 2996 | 139 | NA | NA | 207 |
| 43 | 2020-04-25 | 2857 | 119 | NA | NA | 207 |
| 42 | 2020-04-24 | 2738 | 144 | NA | NA | 198 |
| 41 | 2020-04-23 | 2594 | 89 | NA | NA | 188 |
| 40 | 2020-04-22 | 2505 | 221 | NA | NA | 188 |
| 39 | 2020-04-21 | 2284 | 63 | NA | NA | 177 |
| 38 | 2020-04-20 | 2221 | 29 | NA | NA | 162 |
| 37 | 2020-04-19 | 2192 | 65 | NA | NA | 135 |
| 36 | 2020-04-18 | 2127 | 104 | NA | NA | 131 |
| 35 | 2020-04-17 | 2023 | 72 | NA | NA | 115 |
| 34 | 2020-04-16 | 1951 | 139 | NA | NA | 107 |
| 33 | 2020-04-15 | 1812 | 82 | NA | NA | 104 |
| 32 | 2020-04-14 | 1730 | 69 | 1178 | 479 | 73 |
| 31 | 2020-04-13 | 1661 | 37 | 1116 | 479 | 66 |
| 30 | 2020-04-12 | 1624 | 66 | 1084 | 479 | 61 |
| 29 | 2020-04-11 | 1558 | 52 | 1071 | 430 | 57 |
| 28 | 2020-04-10 | 1506 | 66 | 1019 | 430 | 57 |
| 27 | 2020-04-09 | 1440 | 95 | 989 | 398 | 53 |
| 26 | 2020-04-08 | 1345 | 110 | 950 | 349 | 46 |
| 25 | 2020-04-07 | 1235 | 72 | 893 | 303 | 39 |
| 24 | 2020-04-06 | 1163 | 104 | 910 | 223 | 30 |
| 23 | 2020-04-05 | 1059 | 114 | 861 | 171 | 27 |
| 22 | 2020-04-04 | 945 | 143 | 758 | 161 | 26 |
| 21 | 2020-04-03 | 802 | 68 | 639 | 141 | 22 |
| 20 | 2020-04-02 | 734 | 131 | 614 | 101 | 19 |
| 19 | 2020-04-01 | 603 | 50 | 510 | 81 | 12 |
| 18 | 2020-03-31 | 553 | 90 | 481 | 62 | 10 |
| 17 | 2020-03-30 | 463 | 49 | 402 | 53 | 8 |
| 16 | 2020-03-29 | 414 | 34 | 375 | 32 | 7 |
| 15 | 2020-03-28 | 380 | 70 | 347 | 27 | 6 |
| 14 | 2020-03-27 | 310 | 89 | 277 | 27 | 6 |
| 13 | 2020-03-26 | 221 | 75 | 200 | 16 | 5 |
| 12 | 2020-03-25 | 146 | 25 | 139 | 5 | 2 |
| 11 | 2020-03-24 | 121 | 25 | 121 | 0 | 0 |
| 10 | 2020-03-23 | 96 | 32 | 96 | 0 | 0 |
| 9 | 2020-03-22 | 64 | 8 | 64 | 0 | 0 |
| 8 | 2020-03-21 | 56 | 9 | 56 | 0 | 0 |
| 7 | 2020-03-20 | 47 | 18 | 47 | 0 | 0 |
| 6 | 2020-03-19 | 29 | 2 | 29 | 0 | 0 |
| 5 | 2020-03-18 | 27 | 7 | 27 | 0 | 0 |
| 4 | 2020-03-17 | 20 | 13 | 20 | 0 | 0 |
| 3 | 2020-03-16 | 7 | 0 | 7 | 0 | 0 |
| 2 | 2020-03-15 | 7 | 4 | 7 | 0 | 0 |
| 1 | 2020-03-14 | 3 | 3 | 3 | 0 | 0 |
---
title: COVID19(Erie county)
date: "`r gsub('\\(updated |\\ EST)|/2020', ' ', attributes(Counts$counts)$update.time)`"
output:
flexdashboard::flex_dashboard:
orientation: rows
navbar:
- { icon: fa-github, href: "https://github.com/hubentu/COVID19Erie"}
- { title: "Erie Case Map", href: "https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1"}
- { title: "Global Map", href: "https://coronavirus.jhu.edu/map.html"}
social: menu
source_code: embed
vertical_layout: scroll
---
```{r setup, include=FALSE}
library(flexdashboard)
## library(fontawesome)
## library(COVID19Erie)
## pubExposed <- exposedPub()
```
```{r}
Counts <- caseCounts()
counts <- Counts$counts
ctable1 <- rbind(counts,
c(town = "Total", colSums(counts[,-1])))
ycount <- historyCount$confirmed[historyCount$date == Sys.Date() - 1]
ncount <- attributes(counts)$total.confirmed - ycount
```
Row {data-width=300}
-----------------------------------------------------------------------
### confirmed {.value-box}
```{r}
valueBox(
value = attributes(counts)$total.confirmed,
caption = paste0("Total confirmed cases (+", ncount, ")"),
icon = "fas fa-ambulance",
color = "purple"
)
```
### PCR tests {.value-box}
```{r}
valueBox(
value = attributes(counts)$PCR.tested,
caption = "Total PCR (Swab) Tests",
icon = "fas fa-hospital-user",
color = "#1f77b4"
)
```
### Antibody Tests {.value-box}
```{r}
valueBox(
value = attributes(counts)$Antibody.tested,
caption = "Total Antibody Tests",
icon = "fas fa-hospital-user",
color = "forestgreen"
)
```
### death {.value-box}
```{r}
valueBox(
value = attributes(counts)$total.deaths,
caption = "Death cases",
icon = "fas fa-heart-broken",
color = "#474747"
)
```
Row {data-height=600}
-----------------------------------------------------------------------
### Map
```{r}
caseMap(Counts, pubExposed, titlePos = NULL)
```
### Daily cumulative cases
```{r}
countPlot(historyCount)
```
Row
---------------------------------------------------------------------
### Zipcode cases
```{r}
library(DT)
datatable(Counts$zipCounts, options = list(scrollX = T))
```
### Town cases
```{r}
## library(knitr)
## library(kableExtra)
## kable(ctable1,
## caption = "COVID19 cases (Erie county)") %>%
## kable_styling(full_width = TRUE) %>%
## footnote(general = c(paste("Last updated:", attributes(counts)$update.time),
## "[Data Source](https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1)",
## "[Public Advisories](http://www2.erie.gov/health/index.php?q=public-advisories)",
## "The data is only for educational and academic research purposes.")) %>%
## scroll_box(height = "600px")
datatable(ctable1[,1:2], options = list(scrollX = T))
```
Row
----------------------------------------------------------------------
### Daily counts {.no-mobile}
```{r}
datatable(historyCount[order(historyCount$date, decreasing = TRUE),],
extensions = 'Scroller',
options = list(scrollX = TRUE))
```
### Daily counts {.mobile}
```{r}
library(knitr)
library(kableExtra)
kable(historyCount[order(historyCount$date, decreasing = TRUE),]) %>%
kable_styling(font_size = 8)%>%
scroll_box(height = "600px", width = "100%")
```